home *** CD-ROM | disk | FTP | other *** search
-- card: 2885 from stack: in -- bmap block id: 2124 -- flags: 0000 -- background id: 2781 -- name: -- part 1 (button) -- low flags: 00 -- high flags: 8003 -- rect: left=37 top=68 right=94 bottom=121 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: MemoNote ----- HyperTalk script ----- on mouseUp send memoNote end mouseUp -- part 2 (button) -- low flags: 00 -- high flags: 8003 -- rect: left=126 top=68 right=94 bottom=213 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ShowNotes ----- HyperTalk script ----- on mouseUp send ShowNotes end mouseUp -- part 9 (button) -- low flags: 00 -- high flags: 8003 -- rect: left=218 top=68 right=94 bottom=319 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: RemoveNotes ----- HyperTalk script ----- on mouseUp send KillNotes end mouseUp -- part 39 (field) -- low flags: 80 -- high flags: 4007 -- rect: left=35 top=111 right=287 bottom=487 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 4 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: Note 2 -- part 107 (button) -- low flags: 00 -- high flags: 8003 -- rect: left=324 top=68 right=95 bottom=426 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Show Scripts ----- HyperTalk script ----- on mouseUp edit script of this stack end mouseUp -- part 135 (button) -- low flags: 00 -- high flags: C002 -- rect: left=42 top=108 right=126 bottom=113 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: First Note ----- HyperTalk script ----- *NoteButtonScript* on mouseup global gMoveNote put the visible of card field id 136 into showing showfield showing end mouseUp ** on killField set the visible of card field id 136 to true choose field Tool click at the loc of card field id 136 domenu clear field end killField *** on showField showing global gMoveNote if the paramcount=0 then put false into showing if (showing=false and gMoveNote = false) or (showing=true and gMoveNote = true) then -- if the field isn't showing and the button hasn't been moved -- then show the field in its present location -- or if the field is showing but the button has been moved -- then reshow the field in its new location doHilite true get the rect of me put it into bRect get the rect of card field id 136 put (item 3 of it - item 1 of it) /2 into fH put (item 4 of it - item 2 of it) /2 into fV show card field id 136 at trunc(fH)+item 1 of bRect, trunc(fV)+item 4 of bRect-1 else doHilite false hide card field id 136 end if end showField **** MemoNotes™ Hypernote system ©1988 PeterFraterdeus CIS 73306,2703 ShareWare-$15. to: Alphabets, Inc. 804 Dempster St./ Evanston, IL. 60202 -- part 136 (field) -- low flags: 00 -- high flags: 4007 -- rect: left=42 top=125 right=281 bottom=482 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: Note 136 -- part 144 (button) -- low flags: 00 -- high flags: 8002 -- rect: left=323 top=100 right=118 bottom=427 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: TransferScripts ----- HyperTalk script ----- --This is a development tool for creating script writing scripts. --The concept is to create a working model of the object (a note button --in this case) and create a chunk of imbedded script that can be copied --to the object creating script. --Operating on this script, the result (created in the script of --"tempbutton") would start like this: -- put"on mouseup"&return after NoteButtonScript -- put" global tempscript"&return after NoteButtonScript --"NoteButtonScript" is a varible local to the object creating script. --"Fieldid" is any calculated and changing information, keyed to the --quoted text in TargText on mouseUp put "" into tempscript put "card field id" into targText put "put"&Quote into Frag1 put quote&"&return after NoteButtonScript"&return into Frag2 put the script of button "First Note" into it repeat with n = 1 to the number of lines in it if line n of it contains targText then put quote&"&&Fieldid&&""e into char offset (targText,line n of it)-1 to offset (targText,line n of it)+length(targText)+3 of line n of it end if put Frag1&line n of it &Frag2 after tempScript end repeat set the script of button tempbutton to tempscript end mouseUp Used for the MemoNotes™ System ©1988 Peter Fraterdeus CIS 73306,2703 -- part 146 (button) -- low flags: 00 -- high flags: 8002 -- rect: left=221 top=100 right=118 bottom=322 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: TempButton ----- HyperTalk script ----- put"*NoteButtonScript*"&return after NoteButtonScript put"on mouseup"&return after NoteButtonScript put" global gMoveNote"&return after NoteButtonScript put" put the visible of"&&Fieldid&&" into showing"&return after NoteButtonScript put" showfield showing"&return after NoteButtonScript put"end mouseUp"&return after NoteButtonScript put"**"&return after NoteButtonScript put"on killField"&return after NoteButtonScript put" set the visible of"&&Fieldid&&" to true"&return after NoteButtonScript put" choose field Tool"&return after NoteButtonScript put" click at the loc of"&&Fieldid&&""&return after NoteButtonScript put" domenu clear field"&return after NoteButtonScript put"end killField"&return after NoteButtonScript put"***"&return after NoteButtonScript put"on showField showing"&return after NoteButtonScript put" global gMoveNote"&return after NoteButtonScript put" if the paramcount=0 then put false into showing"&return after NoteButtonScript put" if (showing=false and gMoveNote = false)¬"&return after NoteButtonScript put" or (showing=true and gMoveNote = true) then"&return after NoteButtonScript put" -- if the field isn't showing and the button hasn't been moved"&return after NoteButtonScript put" -- then show the field in its present location"&return after NoteButtonScript put" -- or if the field is showing but the button has been moved"&return after NoteButtonScript put" -- then reshow the field in its new location"&return after NoteButtonScript put" doHilite true"&return after NoteButtonScript put" get the rect of me"&return after NoteButtonScript put" put it into bRect"&return after NoteButtonScript put" get the rect of "&&Fieldid&&""&return after NoteButtonScript put" put (item 3 of it - item 1 of it) /2 into fH"&return after NoteButtonScript put" put (item 4 of it - item 2 of it) /2 into fV"&return after NoteButtonScript put" show"&&Fieldid&&" at trunc(fH)+item 1 of bRect, ¬"&return after NoteButtonScript put" trunc(fV)+item 4 of bRect-1"&return after NoteButtonScript put" else"&return after NoteButtonScript put" doHilite false"&return after NoteButtonScript put" hide"&&Fieldid&&""&return after NoteButtonScript put" end if"&return after NoteButtonScript put"end showField"&return after NoteButtonScript put"****"&return after NoteButtonScript put"MemoNotes™ Hypernote system"&return after NoteButtonScript put"©1988 PeterFraterdeus"&return after NoteButtonScript put"CIS 73306,2703"&return after NoteButtonScript put"ShareWare-$15. to: Alphabets, Inc."&return after NoteButtonScript put"804 Dempster St./ Evanston, IL. 60202"&return after NoteButtonScript -- part 157 (button) -- low flags: 00 -- high flags: C002 -- rect: left=219 top=173 right=191 bottom=356 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Note ----- HyperTalk script ----- *NoteButtonScript* *NoteButton created Sat, Jan 23, 1988 8:01 PM on mouseup global gMoveNote put the visible of card field id 158 into showing showfield showing end mouseUp ** on killField set the visible of card field id 158 to true choose field Tool click at the loc of card field id 158 domenu clear field end killField *** on showField showing global gMoveNote if the paramcount=0 then put false into showing if (showing=false and gMoveNote = false) or (showing=true and gMoveNote = true) then -- if the field isn't showing and the button hasn't been moved -- then show the field in its present location -- or if the field is showing but the button has been moved -- then reshow the field in its new location doHilite true get the rect of me put it into bRect get the rect of card field id 158 put (item 3 of it - item 1 of it) /2 into fH put (item 4 of it - item 2 of it) /2 into fV show card field id 158 at trunc(fH)+item 1 of bRect, trunc(fV)+item 4 of bRect-1 else doHilite false hide card field id 158 end if end showField **** MemoNotes™ Hypernote system ©1988 PeterFraterdeus CIS 73306,2703 ShareWare-$15. to: Alphabets, Inc. 804 Dempster St./ Evanston, IL. 60202 -- part 158 (field) -- low flags: 00 -- high flags: 4007 -- rect: left=219 top=190 right=275 bottom=377 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: Note 158 -- part contents for card part 39 ----- text ----- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This MemoNote contains the script for the ShowNote procedure. Copy and Paste it into your Home Stack. Then Copy the ShowNote Button to any Stack. (Use Shift Opt-Click in Browse mode for self copying of the button... See below) * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * on ShowNotes -- 7 Jan '88 by Peter Fraterdeus --•Sends a mouseUp message to any button named "Note" on a card -- thus toggling the visiblity of the Note Field --•Put this script in your Home Stack, and use Shift-Opt.Click -- to copy the ShowNotes button, paste in Bkgnd. of your Stack. set lockscreen to true if the shiftKey is down and the optionKey is down then choose button tool click at the loc of me -- Shift-Opt.Click to copy ShowNotes button* domenu copy button put "Show Note Button copied..." into msg choose browse tool exit shownotes end if if the shiftKey is down then -- Shift-Click to edit script* edit script of me exit shownotes end if repeat with btn=1 to the number of card buttons if short name of card button btn = "Note" then send mouseup to card button btn end if end repeat end ShowNotes -- part contents for card part 136 ----- text ----- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * The script for this Stack contains the MemoNotes™ system, revised 23 Jan. 88 by Peter Fraterdeus. MemoNotes creates a NoteField on your cards at your click, with a button attached which alternately shows and hides the Note. Included in the system are a ShowAllNotes button, and a RemoveNotes button, for MemoNote maintenance. To use it, copy the whole script to your Home Stack, and copy the buttons(see Magic Copy, below) to the Background of the stack where you will be using the MemoNotes. MemoNotes is shareware, ©1988 by Peter Fraterdeus. If you find it useful, help keep shareware healthy by sending $15, or at least a neat postcard with your enthusiastic kudos to me at Alphabets, Inc., 804 Dempster Street, Evanston, Illinois 60202.... I can also be found on CompuServe 73306,2703, or by phone 312 328 2733. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *** The MemoNote button prompts you to click on the position that you want your new Note. The Field is Scrolling by default, but may be changed to Lined-Rectangle by Command-Shift-Clicking on it. The Note Button will show or hide its field when clicked. The Note Button will move to another location if you drag it immediately after clicking on it (preserving the visible state and field size). The Message box is used for prompting since the ridiculous "Ask" and "Answer" dialog boxes cover the card and won't redraw until the script is finished. ***ShowNotes shows or hides all the Notes on a card. ***RemoveNotes prompts you to select a Note to remove. Click on the button not the field. Be careful with this, as you can't get your text back, once the field has been removed! Unfortunately there's no way to save the contents if the text is not copied elsewhere first… (Maybe somebody out there will know how to do this…) ***Magic Button Copy*** All of these buttons can be copied by Shift-Option-Clicking on them while you are in browse mode. If you transfer the whole script to your Home Stack, any button can be copied this way. Also, Shift-Clicking opens the script for editing. *** I have found these little notes to be quite useful in the Calendar stacks, for making extended notations on a particular day, as well as in the Phone stack, where I have my entire phone list in one MemoNote, and can find and dial any number without leaving the stack! -- part contents for card part 158 ----- text ----- *TransferScripts is a development tool for creating script writing scripts. The concept is to create a working model of the object (a note button in this case) and create a chunk of imbedded script that can be copied to the object creating script. *See the script for more details. 
.iso/Stacks/Hyper Business/Memo Stuff/MemoNoteStack/card_2885_render.png){kind=link}
.iso/Stacks/Hyper Business/Memo Stuff/MemoNoteStack/PATs.png){kind=link}